home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 May / MacHome CD (May 2001).iso / mac / Stuff / Software / Home / GEDitCOM 2.9.3 / GEDitCOM / GEDitCOM.rsrc / GeDF_5200_TITL Printing < prev    next >
Encoding:
Text File  |  2000-12-09  |  561 b   |  46 lines
  1. get *rec
  2. if SOUR
  3.   newline
  4.   style label
  5.   text Title:
  6.   tabwidth 2
  7.   Red
  8.  
  9.   hskip 5
  10.   style edittext w=-1
  11.   Red
  12.  
  13. else
  14.   ! New line and enter label
  15.   hrule 2
  16.   newline 2
  17.   style label
  18.   text *name
  19.   text :
  20.   get *name
  21.   if Death
  22.     tabwidth 1
  23.   else
  24.     tabwidth 2
  25.     hskip 5
  26.     style editvalue w=-1
  27.     newline
  28.     if more
  29.       tab 1
  30.     endif
  31.   endif
  32.  
  33.   ! show date and place
  34.   set rtjs 1
  35.   showall DATE
  36.   showall AGE
  37.   showall PLAC
  38.   showall ADDR
  39.   showall TYPE
  40.   showall AGNC
  41.   showall CAUS
  42.   showall NOTE *name
  43.   showall SOUR *name
  44.   set rtjs 0
  45. endif